home *** CD-ROM | disk | FTP | other *** search
- * *********************************************************
- * *
- * * 08/11/94 177.SPR 19:19:51
- * *
- * *********************************************************
- * *
- * * Duncan Halstead
- * *
- * * Copyright (c) 1994 CD-ROM, Inc.
- * * 603 Park Point Dr.
- * * Golden, CO 80401
- * *
- * * Description:
- * * This program was automatically generated by GENSCRN.
- * *
- * *********************************************************
-
-
- #REGION 0
- REGIONAL m.currarea, m.talkstat, m.compstat
-
- IF SET("TALK") = "ON"
- SET TALK OFF
- m.talkstat = "ON"
- ELSE
- m.talkstat = "OFF"
- ENDIF
- m.compstat = SET("COMPATIBLE")
- SET COMPATIBLE FOXPLUS
-
- m.rborder = SET("READBORDER")
- SET READBORDER ON
-
- * *********************************************************
- * *
- * * Windows Window definitions
- * *
- * *********************************************************
- *
-
- IF NOT WEXIST("_qsh15fklg")
- DEFINE WINDOW _qsh15fklg ;
- AT 0.000, 0.000 ;
- SIZE 29.846,58.800 ;
- TITLE "Refrigerated Display Equipment" ;
- FONT "MS Sans Serif", 8 ;
- FLOAT ;
- CLOSE ;
- MINIMIZE ;
- SYSTEM
- MOVE WINDOW _qsh15fklg CENTER
- ENDIF
-
-
- * *********************************************************
- * *
- * * 177/Windows Screen Layout
- * *
- * *********************************************************
- *
-
- #REGION 1
- IF WVISIBLE("_qsh15fklg")
- ACTIVATE WINDOW _qsh15fklg SAME
- ELSE
- ACTIVATE WINDOW _qsh15fklg NOSHOW
- ENDIF
- @ 0.000,0.000 SAY (LOCFILE("bmp\177.bmp","BMP|ICO|PCT|ICN", "Where is 177?" )) BITMAP ;
- SIZE 29.538,57.600 ;
- ISOMETRIC ;
- STYLE "T"
- @ 3.692,2.400 GET abc ;
- PICTURE "@*IHN " ;
- SIZE 4.692,31.600,0.800 ;
- DEFAULT 0 ;
- FONT "MS Sans Serif", 8 ;
- VALID _qsh15fltc()
- @ 8.538,4.600 GET abc ;
- PICTURE "@*IHN " ;
- SIZE 8.462,17.200,0.800 ;
- DEFAULT 0 ;
- FONT "MS Sans Serif", 8 ;
- VALID _qsh15flze()
- @ 9.692,22.400 GET abc ;
- PICTURE "@*IHN " ;
- SIZE 7.077,32.600,0.800 ;
- DEFAULT 0 ;
- FONT "MS Sans Serif", 8 ;
- VALID _qsh15fm4y()
- @ 17.692,1.800 GET abc ;
- PICTURE "@*IHN " ;
- SIZE 8.308,27.800,0.800 ;
- DEFAULT 0 ;
- FONT "MS Sans Serif", 8 ;
- VALID _qsh15fma7()
- @ 16.692,29.800 GET abc ;
- PICTURE "@*IHN " ;
- SIZE 10.385,21.800,0.800 ;
- DEFAULT 0 ;
- FONT "MS Sans Serif", 8 ;
- VALID _qsh15fmfk()
- @ 3.615,35.200 GET abc ;
- PICTURE "@*IHN " ;
- SIZE 5.231,19.600,0.800 ;
- DEFAULT 0 ;
- FONT "MS Sans Serif", 8 ;
- VALID _qsh15fml4()
-
- IF NOT WVISIBLE("_qsh15fklg")
- ACTIVATE WINDOW _qsh15fklg
- ENDIF
-
- READ CYCLE ;
- DEACTIVATE .T.
-
- RELEASE WINDOW _qsh15fklg
-
- #REGION 0
-
- SET READBORDER &rborder
-
- IF m.talkstat = "ON"
- SET TALK ON
- ENDIF
- IF m.compstat = "ON"
- SET COMPATIBLE ON
- ENDIF
-
-
- * *********************************************************
- * *
- * * _QSH15FLTC abc VALID
- * *
- * * Function Origin:
- * *
- * * From Platform: Windows
- * * From Screen: 177, Record Number: 3
- * * Variable: abc
- * * Called By: VALID Clause
- * * Snippet Number: 1
- * *
- * *********************************************************
- *
- FUNCTION _qsh15fltc && abc VALID
- #REGION 1
- USE CLOSEUP
- GO 1153
- DO ZOOM.SPR
-
- * *********************************************************
- * *
- * * _QSH15FLZE abc VALID
- * *
- * * Function Origin:
- * *
- * * From Platform: Windows
- * * From Screen: 177, Record Number: 4
- * * Variable: abc
- * * Called By: VALID Clause
- * * Snippet Number: 2
- * *
- * *********************************************************
- *
- FUNCTION _qsh15flze && abc VALID
- #REGION 1
- USE CLOSEUP
- GO 1155
- DO ZOOM.SPR
-
- * *********************************************************
- * *
- * * _QSH15FM4Y abc VALID
- * *
- * * Function Origin:
- * *
- * * From Platform: Windows
- * * From Screen: 177, Record Number: 5
- * * Variable: abc
- * * Called By: VALID Clause
- * * Snippet Number: 3
- * *
- * *********************************************************
- *
- FUNCTION _qsh15fm4y && abc VALID
- #REGION 1
- USE CLOSEUP
- GO 1156
- DO ZOOM.SPR
-
- * *********************************************************
- * *
- * * _QSH15FMA7 abc VALID
- * *
- * * Function Origin:
- * *
- * * From Platform: Windows
- * * From Screen: 177, Record Number: 6
- * * Variable: abc
- * * Called By: VALID Clause
- * * Snippet Number: 4
- * *
- * *********************************************************
- *
- FUNCTION _qsh15fma7 && abc VALID
- #REGION 1
- USE CLOSEUP
- GO 1157
- DO ZOOM.SPR
-
- * *********************************************************
- * *
- * * _QSH15FMFK abc VALID
- * *
- * * Function Origin:
- * *
- * * From Platform: Windows
- * * From Screen: 177, Record Number: 7
- * * Variable: abc
- * * Called By: VALID Clause
- * * Snippet Number: 5
- * *
- * *********************************************************
- *
- FUNCTION _qsh15fmfk && abc VALID
- #REGION 1
- USE CLOSEUP
- GO 1158
- DO ZOOM.SPR
-
- * *********************************************************
- * *
- * * _QSH15FML4 abc VALID
- * *
- * * Function Origin:
- * *
- * * From Platform: Windows
- * * From Screen: 177, Record Number: 8
- * * Variable: abc
- * * Called By: VALID Clause
- * * Snippet Number: 6
- * *
- * *********************************************************
- *
- FUNCTION _qsh15fml4 && abc VALID
- #REGION 1
- USE CLOSEUP
- GO 1154
- DO ZOOM.SPR